home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9008a.d64 / leseroutine 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  35 lines
  1. 10 REM ERRORLESEROUTINE FUER ALLE SPUREN
  2. 20 REM (C) 1986 BY KLAUS RACZEK
  3. 30 :
  4. 40 DIM R(22): REM FELD FUER LESEROUTINE
  5. 50 OPEN1,8,15,"I":REM FEHLERKANAL OEFFNEN UND INITIALISIEREN
  6. 60 FORI=0TO22
  7. 70 READ R(I): REM MASCHINENPROGRAMM IN
  8. 80 NEXT I: REM FELD R() EINLESEN
  9. 90 PRINT"[147]EINLESEN EINES SEKTORS"
  10. 100 INPUT"WELCHE SPUR (1-40)";SP:R(1)=SP
  11. 110 INPUT"WELCHER SEKTOR";SE:R(5)=SE
  12. 115 INPUT"WELCHE ID (ODER RETURN)";ID$
  13. 116 IFID$<>""THENPRINT#1,"M-W"CHR$(18)CHR$(0)CHR$(2)ID$
  14. 120 FORI=0TO22
  15. 130 PRINT#1,"M-W"CHR$(I)CHR$(4)CHR$(1)CHR$(R(I)):REM PROGRAMM IN PUFFER SCHREIBE
  16. 140 NEXT I
  17. 145 PRINT#1,"M-W"CHR$(106)CHR$(0)CHR$(1)CHR$(133): REM  BEI ERROR NICHT KLAPPERN
  18. 150 PRINT#1,"M-E"CHR$(0)CHR$(4):REM PROGRAMM IN PUFFER AUSFUEHREN
  19. 160 INPUT#1,A,B$,C,D:PRINT:PRINTA;B$;C;D:REM FEHLERKANAL LESEN UND ZEIGEN
  20. 170 FORI=1TO3000:NEXT
  21. 180 :
  22. 190 DATA 169,18,133,6,169,1,133,7,169,128
  23. 200 DATA 162,0,141,77,2,133,0,141,91,2,76,153,213
  24. 210 :
  25. 220 :
  26. 230 PRINT"ANZEIGEN DES BLOCKINHALTS":FORI=1TO2000:NEXT
  27. 240 REM 256 BYTES
  28. 250 :
  29. 260 FORI=0TO255STEP16:PRINT"[147]BYTE      BYTE      BYTE"
  30. 265 PRINT"NUMMER    DEZIMAL   ASCII":FORJ=0TO15
  31. 270 PRINT#1,"M-R"CHR$(I+J)CHR$(3)
  32. 280 GET#1,A$:A=ASC(A$+CHR$(0)):REM EINE BYTE LESEN
  33. 290 PRINT""I+J,A,A$"":REM AUSGEBEN: BYTENUMMER, ASC-WERT, ASCII-ZEICHEN
  34. 300 NEXT:PRINT"TASTE":POKE198,0:WAIT198,1:NEXT
  35.